﻿
Imports System.Data
Imports EVOLTA.Promocion.Bl.Be
Imports EVOLTA.Promocion.Bl.Bc

Partial Class reportes_ReporteStatusVenta
    Inherits System.Web.UI.Page
    Private tjsMensaje As String
#Region "Instancias a las Capas de Entidad y Negocio"

    'Dim objnegProyecto As New EVOLTA.Promocion.Bl.Bc.Rproyecto
    'Dim objnegSeparacionVenta As New EVOLTA.Promocion.Bl.Bc.RseparacionVenta
    Dim objnegVendedor As New EVOLTA.Promocion.Bl.Bc.Rvendedor
    Dim objnegSeparacionVenta As New EVOLTA.Promocion.Bl.Bc.RseparacionVenta
#End Region

#Region "Variables Globales"
    Public dtbInformacion As New DataTable
#End Region

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If (Not Page.IsPostBack) And (Request.Params("__EVENTTARGET") Is Nothing) Then
            Me.Cargar_vendedores()

            ' Reinicializando controles
            Me.lblSubTitulo2.ForeColor = Drawing.Color.Red
            Me.lblSubTitulo3.Text = String.Empty
            Me.lnkBtnExportar.Enabled = False
        Else
            If Me.ddlVendedores.SelectedItem.Value.ToString.Trim.Equals("0") Then
                Me.lblSubTitulo2.Text = String.Empty
                'Me.txtCambio.Text = 0.0
                Me.lnkBtnExportar.Enabled = True
                Me.lblSubTitulo3.Text = "" '"Para realizar una consulta debe de seleccionar un Vendedor."
                Me.lblSubTitulo3.ForeColor = Drawing.Color.Red
                Me.cargarInformacion()
            Else
                Me.lnkBtnExportar.Enabled = True
                Me.lblSubTitulo2.ForeColor = Drawing.Color.Black
                Me.lblSubTitulo3.ForeColor = Drawing.Color.Black
                If Me.ddlVendedores.SelectedItem.Value = "0" Then
                    Me.ddlVendedores.SelectedItem.Text = "TODOS"
                End If
                Me.lblSubTitulo2.Text = "Información correspondiente al vendedor " & Me.ddlVendedores.SelectedItem.Text

                Dim strSubtitulo3 As String = String.Empty

                If Me.txtCambio.Text.Trim.Equals(String.Empty) Then
                    Me.txtCambio.Text = 0.0
                End If

                If Not Me.txtNombreCliente.Text.Trim.Equals(String.Empty) Then
                    If Not Me.txtCambio.Text.Trim.Equals(String.Empty) Then
                        strSubtitulo3 = strSubtitulo3 & " | "
                    Else
                        strSubtitulo3 = "Filtrado por "
                    End If

                    strSubtitulo3 = strSubtitulo3 & "Nombre del Cliente: " & Me.txtNombreCliente.Text.Trim.ToUpper()
                End If

                Me.lblSubTitulo3.Text = strSubtitulo3

                Me.cargarInformacion()
            End If

            ViewState("vst_subtitulo_2") = Me.lblSubTitulo2.Text
            ViewState("vst_subtitulo_3") = Me.lblSubTitulo3.Text
        End If
    End Sub

    'Private Sub Cargar_proyectos()
    '    Dim dtbProyectos As New DataTable
    '    dtbProyectos = objnegProyecto.negCargar_proyectos("EPAZCENPR")

    '    Me.ddlProyecto.DataSource = dtbProyectos
    '    Me.ddlProyecto.DataTextField = "descProyecto"
    '    Me.ddlProyecto.DataValueField = "Id"
    '    Me.ddlProyecto.DataBind()
    'End Sub
    Private Sub Cargar_vendedores()
        Dim dtbVendedores As New DataTable
        dtbVendedores = objnegVendedor.negCargar_vendedores(Me.Master.descEmpresa)
        'If dtbVendedores Is Nothing Then dtbVendedores = New List(Of Evendedor)
        'If DisplaySelect Then dtbVendedores..Insert(0, New Evendedor("00", "-- SELECCIONAR --"))

        Me.ddlVendedores.DataSource = dtbVendedores
        Me.ddlVendedores.DataTextField = "nombreVendedor"
        Me.ddlVendedores.DataValueField = "idVendedor"
        Me.ddlVendedores.DataBind()
    End Sub
    Private Sub cargarInformacion()
        Dim strVendedorId As Integer = Me.ddlVendedores.SelectedItem.Value.ToString()

        Dim strCambio As Decimal = Me.txtCambio.Text.Trim()
        Dim strFechaInicio As String = Me.txtFchInicio.Text.Trim()
        Dim strFechaFin As String = Me.txtFchFin.Text.Trim()
        Dim strCliente As String = Me.txtNombreCliente.Text.Trim()
        Dim pIdProyecto As Integer = Me.Master.idProyecto
        Dim pIdEtapa As Integer = Me.Master.idEtapa
        If Me.txtCambio.Text.Trim = "" Then
            tjsMensaje = "<script>javascript:alert(' Por favor ingrése el Tipo de Cambio de Hoy.');</script>)"
            Controls.Add(New LiteralControl(tjsMensaje))
            txtCambio.Focus()
            Exit Sub
        End If
        Me.dtbInformacion = objnegSeparacionVenta.negCargar_reporte_status(Me.Master.descEmpresa, pIdProyecto, pIdEtapa, strVendedorId, strCambio, strFechaInicio, strFechaFin, strCliente)

        Dim dvwInformacion As New DataView
        dvwInformacion = Me.dtbInformacion.DefaultView

        If Me.dtbInformacion.Rows.Count > 0 Then
            Session("ssn_Exportar") = dvwInformacion.ToTable

            Me.rptReporteGlobal.DataSource = Me.dtbInformacion
            Me.rptReporteGlobal.DataBind()
        End If
    End Sub

    Protected Sub lnkBtnExportar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lnkBtnExportar.Click
        Dim strNombreArchivo As String = "Reporte Status - Condominio Unnico_Etapa 1" & Microsoft.VisualBasic.Right("0" & Date.Now.Day.ToString(), 2) & Microsoft.VisualBasic.Right("0" & Date.Now.Month.ToString(), 2) & Date.Now.Year.ToString()
        Dim strTituloHoja As String = "REPORTE STATUS VENTA - CONDOMINIO UNICO - ETAPA 1"
        Dim strSubTituloHoja As String = ViewState("vst_subtitulo_2").ToString()

        Dim dtbInformacion As New DataTable

        dtbInformacion = Session("ssn_Exportar")

        If dtbInformacion.Rows.Count > 0 Then
            Dim objInfraestructura As New Infraestructura
            Dim strOpcionalCabecera As String = String.Empty

            Dim strSubtitulo3 As String = ViewState("vst_subtitulo_3").ToString()

            strOpcionalCabecera = "<tr><th colspan=""" & dtbInformacion.Columns.Count & """>" & strSubtitulo3 & "</th></tr>"
            objInfraestructura.Exportar_a_excel(strNombreArchivo, strTituloHoja, strSubTituloHoja, dtbInformacion, Nothing, strOpcionalCabecera)
        End If
    End Sub

    Protected Sub btnCancelar_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Me.ModalPopupExtender.Hide()
    End Sub

End Class
